home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / program / palis102.lha / Palis / src / basic.c next >
C/C++ Source or Header  |  1992-09-02  |  2KB  |  79 lines
  1. /*
  2.     ·C·O·D·E·X· ·D·E·S·I·G·N· ·S·O·F·T·W·A·R·E·
  3.     presents
  4.  
  5.     Palis
  6.  
  7.     FILE:    Basic.c
  8.     TASK:    basix for my use
  9.  
  10.     (c)1995 by Hans Bühler
  11. */
  12.  
  13. #include    "pl.h"
  14.  
  15. // ---------------------------
  16. // defines
  17. // ---------------------------
  18.  
  19. // ---------------------------
  20. // datatypes
  21. // ---------------------------
  22.  
  23. // ---------------------------
  24. // proto
  25. // ---------------------------
  26.  
  27. // ---------------------------
  28. // vars
  29. // ---------------------------
  30.  
  31. static char        *TitleTxt    =    PROGNAME " request";
  32.  
  33. // ---------------------------
  34. // funx: lists
  35. // ---------------------------
  36.  
  37. /*******************
  38.  * init empty list *
  39.  *******************/
  40.  
  41. void InitEmptyList(struct MinList *List)
  42. {
  43.     List->mlh_Head        =    (struct MinNode *)&List->mlh_Tail;
  44.     List->mlh_Tail        =    0;
  45.     List->mlh_TailPred=    (struct MinNode *)&List->mlh_Head;
  46. }
  47.  
  48. // ------------------------------------
  49. // funx: I/O
  50. // ------------------------------------
  51.  
  52. /*****************************************/
  53. /* Requester; uses reqtools if available */
  54. /*****************************************/
  55.  
  56. LONG Req(char *txt, char *gad, APTR arg1, APTR arg2, APTR arg3, APTR arg4)
  57. {
  58.     struct EasyStruct        easy;
  59.  
  60.     easy.es_StructSize    =    sizeof(struct EasyStruct);
  61.     easy.es_Flags            =    0;
  62.     easy.es_Title            =    TitleTxt;
  63.     easy.es_TextFormat    =    txt;
  64.     easy.es_GadgetFormat    =    gad;
  65.  
  66.     return    EasyRequest(0,&easy,0,arg1,arg2,arg3,arg4);
  67. }
  68.  
  69. /*****************************/
  70. /* error requester short cut */
  71. /*****************************/
  72.  
  73. BOOL ErrorReq(char *txt, APTR arg1, APTR arg2, APTR arg3, APTR arg4)
  74. {
  75.     Req(txt,"Cancel",arg1,arg2,arg3,arg4);
  76.     return FALSE;
  77. }
  78.  
  79.